COLOUR 

GENIE 

AUCKLAND DISTRICT USER GROUP 


NEWSLETTER NO: 18 


JULY 85 


Well I finally made it onto the front paqe. Nola sends her apolaqies 
but other commitments means you have to put up with me this month. 

Fir’stly this month is the start of a series of articles by David 
Donaldson, these were oriqionaily for the now def Linked INPUT magazine 
but david has now offered them to use at a very reasonable price 
(FREE) 

Items of interest this month A shipment of t£ipe recorders to hit 
N»Z. under the name of EUROMATIC I have no details of tliem at the 
moment except that Nola tells me they can be boLiqht for $50^ hopef ul 1 'v 
more details next month. 

Also I have been asked to make it clear that $3 tapes containing 
newsleter programs are no longer obtainable but the ones listed at 
$3.50' can still be purchased. 

Comments on SUPEf^lPRINT mentioned last month. This is adveirtised as 
being EPSON compatible. We know it works on SUPER-5 printers and a 
STAR' E5TX 80 thermal printer and of course Epson’s. If you btiy this 
tape and you. don^’t have one of the printer brands mentioned please let 
us know if it works. If it does not work we will give a refund. 

Finally welcome to this months new members: - 

R a n H a r" t 

2 6 P u r i r i C a u i- 1 Fla t: s 
Denbigh St 
F e i. 1 d i n g 

P e t e r Lee- J o h n s o n f a m i 1 y 

(adams St , ^ 

W-aihi 

.0 e a n I-, e .1 s a .1 1 
4 O (3 1 a d s t o n e T' e r r a t: e 
Inver car gi 1 1 


F^egar ds 


CHRIS 



Auckland Colour Genie User Group 

P.O. Box 27387 

AUCKLAND 


18 Elizabeth ST 
Feilding 

5 July 1985 


Dear Group 

Thank you for sending me the useful information a month or so 
agoo One particular page that caught my eye was the 'ZEN' 
cartridge write up. It sounds very good and as I sometimes 
crash my machine code programs into ZEN, in a cartridge form, 
it would be very useful and give more free memory. Could you 
please advise weather this is or will be available in New Zealand 
and how much. 

I have typed in the screen scroller of Peter Fisher's and found 
it very good. With some modification I also added a speed 
control. But as it had to move colour data as well, the fascer 
it got the worse it looked. What I did then was to change 
the code so it worked on the FGR screen and because there is 
no colour data, this works very well. Thanks Peter I will 
still have hours of fun with this program. 

The printer I use is a 'Pacesetter FAX-80'. It is a good 
printer but I can only get it to work in italic mode. I have 
set the switches inside - all of which do as they say - but 
not the italic. I have seen another Genie and printer com- 
bination that works exactly opposite, only normal printing 
and no italic. I have set my genie up on a Epson printer 
which then worked perfectly. Is there anyone out there that 
can help? I'm sure there is more than just a few of us that 
could do with help in this area. 

One last small problem I have is I need some kind person to 
draw me up a circuit for an A-D coverter for the genie. I 
already have a chip, a ADC0800, 8-bit A/D converter, I have 
all the information on this chip but don't know how to inter- 
face it or anything. So if there is any kind person out there 
please contact me. 

I have enclosed a Hex VIDEO PLANNING SHEET and a colour RAM 
SHEET which only uses other people's ideas. Very useful for 
us machine coders . 


Happy computing 



Kevin! 


C <Z> JL Oiy ^ >^/V/V ^/V45 S'/V^^T" 
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I CLS\PRINTQ^92," PRINTING /VOW" 

^ LPRINrCHR$< !<)■> ’,rPB<3> ', " HEX VIDEO COLOUR RAN PLANNING SH E ET " ■. L PR I NTT AB < 63 ) i 
FORL ^ITOrO'.LPRINT"^" ’, -. NEXT-. LPRINT-.L PRINT 
3 A=-&HFOOQ-.FS="Vc %" 

F L$="if.*i^'' -. X=- 1 ! F2$= " % "4 " 

5 LPRINTCHR$< 15) ", 

6 LPRINTTABL 12) 

7 FORJ=0TO39 -.LPRINTUSINGF 1$’,J’, -.NEXT 
■3 L PRINT 

9 FORO = I 7014-0 -.L PRINT"- " ’, i NEXT -. L PR INT 

10 F0RN=AT0A-f-999 

II C=N-.X=X + 1 ■.N=N+65536 

12 GOSUB19-.L=0 

13 IF P=OTHENLPRINTUSINGF$}L$} -. L PR INTUS INQF 1 $ } X } -.LPRINT" "J 

>4. P=P + 1-IF P=41THENP=0-.LPRINT-.GOTO13 

15 LPRINTUSINGF2S-, RIGHTS < L$ ,2) -.LS="" 

16 N=C 

17 NEXT -. LPRINTCHR$< 18) -,CHR$<27) }CHRS<64) 

13 END’ By K .J .Hunter 

1 - L-N- INTLNl 1 6.>)(16-. LS=CHRS(L ■*■43-77 HL>-9» *-LS-.N=INT<Nl 16) -. IF NTHEN19 
20 RETURN 


CHAN(3ES TO KM I GHTSBR I DGE 


I SLigg'-St the following changes to this game published in 
N'swletter 16, The result will be a non-scrolling board, on 
which the men only will move. This in my opinion gives a 
more effective display. 

Most of the changes involve inserting PRINT:!) staements. 

Note the semicolon in line 250 - without it. disaster wi 1 
strike. I have added line 495 to blank messages. There are 
13 spaces inside the guotes. 

Line 615 puts a space between each line of the board. This 
seems to me to produce a better proportioned board. 

170 PRINT:S8S0, "YOU MUSiT MOVE THE PIECE ON "M 

250 IF P=0 THEM PR I NT.i)920, " ILLEGAL MOVE" 5 : GOTO 180 

260 IF H(N)=67 THEN HU-HU+l 3 FRINT:3)920, "WELL PLAYED i FOR R=1TQ500: NE.XTR 
3 6 0 F' R I N T Q 8 3 O , " I HA V E T 0 MOVE T tl E PIECE 0 N . " K: 

390 IF H (K+Z (W) ) -72 THEM PR I NT:!)920 " GOTCHA ! ! ’* ; s C0-CD+ 1 ; FOR P= 1 TO 1 OOO ; NEXTP : 60 
T0450 

495 PRINT;3920, " 

500 PR I NTiSO , ; s PR I NT 
615 PRINT 

U l: U L O U R 4 3 .[ F H U — 6 
710 COLOLIRisIF CO-6 
TIME ! I ■■ 

.•'2'..' IF Q— boo THEN PF.' I Ml :Ii 880 , "I accept your wish to concede" 

730 IF 01=500 THEN F 'RINT:i)880.i " I concede to a ma ster" 

If you. want the computer to play fair you had better add 

OR A = 58 

to line S30 otherwise the computer will take a piece from 
nowhere and do you down, this omission is in Tim Hartnell's 
o r i q i o n a 1 p r o q r a m . 


THEM PRINTiSSSO, "WELL DONE! -I'M BEATEN ! " 

THEN PRINT.OSSO,, 'L 'M THE W I MNER I " s PR I NT " BETTER LUCK NEXT 


KEITH McGILL 


Basic Basic for Parents Sc Beginers 
Part 1 


David Donaldson 

Have you a son or daughter who is one of those whisz kids with a 
computer or are you one of those who have become tired of using 
those commercially written games programmes (all the same aren’t 
they). Or do you wonder if the mighty marvel you bought will do 
anything exept play games, well it will, and I hope to give you 
some idea how to use your computer to do more than those games 
you load into it. Something usefull in the way of a block of 
utility programmes. 


Now first of all I had better tell you, if you know about writing 
your own programmes go and read something else (footrot flats for 
instance) because this will start at the beginning, ?< I mean at 
the very begi nni ng . Excepti ng that the examples may be of some use 
to advanced programmers to build on from, they are written in 
standard (?) Microsoft Basic and will thus convert to almost any 
machine easily. No colour or sound instructions will be included 
as these tend to be specific for a given machine. 

Now to begin , as with all brain teasers, you must first define 
your problem.. Let us take for our first teaser a method of 
converting gallons to litres. 

The first thing to do is to work out the basic formula, so its 
back to the maths book S' we find > Litres = Gal x 4.5461 < 
therefore substituting in algebra 

L = G X 4.5461 


The way we give the computer the information we have, is by an 
’input’ statement , thi 5 statement (in a programme) makes the 
computer stop S: wait for the human operator to give (input) some 
inf ormation. The way the computer ’tells’ us the answer is by a 
’print’ statement which puts the answer on the screen for us to 
read. So now let’s have a go at writing the programme. Type it in 
exactly as it is printed. 

110 CLS 

120 PRINT "To convert Gallons to Litres" 

130 PRINT: INPUT "Give me the quantity in Gallons ";G 
140 PRINT: PRINT 
150 L = G # 4.5461 

160 PRINT: PRINT "The quantity in Litres is ";L 
170 PRINT: INPUT "Another calculation (Y/N) ";Z$ 

130 IF Z$="Y" GOTO 110 : IF Z«="N" GOTO 190 ELSE 170 
190 END 

If you make a mistake just re-type the line starting with the 
same number and the computer will substitute the new line for the 
old cne If you type in a wrong number S-; you wish to get rid of 
it just type the same (wrong) nuniber again leave the l.ine blank 
press ’return’ this will erase the line from the computer. 

Now let us have a look at what we have produced. Firstly you will 


1 


notice that I started at line 110 well don’t worry about this as 
we will be adding to the programme as we gc along will end up 
with a much bigger programme of which this is only a building 
block. Then you vji 1 1 have noticed we write each line leaving 10 
numbers between each line, this is so we can add more lines later 
i -f needed v-wi thout too much trouble, a programme is a set of 
instructions to the computer telling it to do a specific job one 
step at a time It follows the programme from the lowest to the 
highest line number until finished or told to do something else. 
Line 110 CLS, clears the screen, if you have a vic/pet you will 
use 110 PRINT CHR($> 147 2-: if using an Apple use the word HOME to 
do the same job. 

The fact that all ’commands’ are written in capital letters is 
important too, computers require all commands in capital form. Then 
there are the extra ’PRir4T’ commands, this leaves blank lines when 
printed on the screen. Setting out the information on the screen 
neatly. This is called Screen Pormatting. 

Note also the use of an asterisk (*) instead of a (x),the 
computer dies not recognise a multiply sign the way we do. 

Next the ’GOTO’ command, this works the same as an AA sign on 
the road, it tells the computer to branch out to a different part 
of the programme this is followed by an error trapping 
routine, the ELSE command this tells the computer that if any 
other key is pressed to go back to the line it was executing at 
the time S< ignore that key. The END command looks as if it is 
unnecessary as the programme will never get to it by the looks of 
it but in a complex programme it is included to make sure the 
computer wi LI not run on into the next segment of the programme. 
The colon’s between statements met^n the same to the computer as 
putting each statement on a different line so that it can work 
through one step at a time. The use of Z$ is algebra for a string 
to the com.puter S--. the';) before it is important although a BBC 
computer may need a (,) instead of a (;) 

To do the reverse ( convert litres to gallons ) is just as simple 
210 CLS 

220 PRINT "To convert litres to Gallons " 

230 PRINT: INPUT "Give me the quantity in litres '';L 
240 PRINT; PRINT 
250 G = L/4.5461 

260 PRINTsPRINT "The quantity in gallons is ";G 
270 PRINT: INPUT "another calculation (Y/N) ";Z^ 

2S0 IF Z^="Y" GOTO 210: IF Zt="N" GOTO 290 ELSE 270 
290 END 

Nov-^ the only difference here is the </) used instead of a divide 
sign, and once again the error trap 8; END safety statement. 

A method of converting degrees centigrade to degrees farenheit. 
will combine both mu,ltiply 8< divide f uncti ons, And as they often 
have to be done in a strict order (in more complex calculations) 
there is a way to make the computer do calculations in the order 
YOU want them done. 

First work out the basic formula, so its back to the maths book. 



Degrees F = Degrees C :< 9/5 + 32 

substituting in algebra 

F = C N 9/5 + 32 

therefore what we want to do is to tell the computer the degrees 
centigrade S< have it work out the farenheit 

310 CLS 

320 PRINTrPRINT "TO CONVERT CENTIGRADE TO FARENHEIT" 

330 PRINT: INPUT "What is the temperature in CENTIGRADE ";C 
340 F = ( (C*9) /5> + 32 
350 PR I NT: PR I NT 

360 PRINT “The temperature in farenheit is ";F 
370 PRINT: INPUT "Another temperature Y/N "jZ$ 

380 IF "Y" SOTO 310 : IF Z$="N" GOTO 390 ELSE 380 

390 END 

Now have a look at the brackets in the f ormul a, there are two lots 
of brackets one pair within each other, the computer works from 
the centre lot of brackets, does those first 5: then works 
outwards, so put the calculation which has to be done first in the 
centre lot of brackets ?< work outwards. 

Now for homework see if you can write the reverse programme, to 
convert Farenheit to Centigrade, start with line 410. 

But before you go you had better ’save’ the programme lines you 
have typed in. Refer to your manual for exact instructions but 
remember to turn on the tape recorder first before you press 
’return’ on the computer 

See you again next month. 


10 GOSUB 1210 

20 A=RND ( 1 0000 ) : B=RND ( 1 0000 ) ; C=RND C 1 0000 ) 

30 D=500 ; E=500 ; F=500 ; D 1 =0 ; E 1 =0 : F 1 =0 : D2= 1 0 s E2= 1 0 j F2= 1 0 
40 IF D<=0 THEN 1170 
45 CLS:PRINT"STATUS REPORT" 

60 PRINT"DISTANCE 1-2: ";A;" KM" 

70 PRINT" ' 1-3: ";B;" KM" 

80 PRINT" 2-3: ";Cj" KM" 

90 PR I NT "ENERGY AVAILABLE: ";D 
100 PRINT"MISSILES LOADED: ";D2 
no PR I NT "RESERVE ENERGY: ";D1 
120 Al=PEEK(-2046) 

130 C0=0 

135 Q$=INKEY$:IF Q*="" THEN 135 
140 IF Qi="H" THEN 00=1: GOTO 220 
150 IF Q$="I" THEN 00=2; GOTO 220 
160 IF Q$="J" THEN 00=3; GOTO 220 
170 IF a$="K" THEN 00=4: GOTO 220 
180 IF Q$="L" THEN 00=5; GOTO 220 
190 IF Q*="M" THEN 00=6: GOTO 220 
200 IF Q$="N" THEN 00=7; GOTO 220 
210 IF Q$="0" THEN 00=8 

220 IF 00=0 THEN PRINT"NO OOMMAND READ";GOTO 570 
230 ON 00 GOTO 240,290,340,360,440,450,530,550 
240 PRINT"OOMMAND H READ" 

250 IF D2=0 THEN PRINT" MISSILE TUBES EMPTY" -.GOTO 570 

260 K=RND(2):IF K=1 THEN PRINT"MISSILE MISSED TARGET" ; D2=D2-1 ; GOTO 570 

270 K=A; GOSUB 1350 

280 PRINTHj" UNIT HIT ON SHIP 2" ; E=E-H: D2=D2-1 : GOTO 570 
290 PR I NT "COMMAND I READ" 

300 IF D2=0 THEN 250 

310 K=RND(2):IF K=1 THEN PRINT"MISSILE MISSED TARGET" ; D2=D2-1 : GOTO 570 
320 K=B: GOSUB 1350 

330 PRINTH;" UNIT HIT ON SHIP 3" : F=F-H; D2=D2-1 : GOTO 570 
340 PR I NT "COMMAND J READ" 

350 GOTO 370 

360 PR I NT "COMMAND K READ" 

370 IF Ca=3 AND A<1000 THEN 380 ELSE IF C0=4 AND B<1000 THEN 380 ELSE 390 

380 PRINT"! CANT ALLOW THAT!": GOTO 570 

390 K=RND(500)+500 

400 IF C0=3 THEN A=A-K:GOTO 420 

410 IF C0=4 THEN B=B-K 

420 PRINTK?" KM APPROACH MADE";D=D-50 

430 GOTO 570 

440 PRINT"COMMAND L READ": GOTO 460 
450 PR I NT "COMMAND M READ" 

460 IF C0=5 AND A >9000 THEN 470 ELSE IF C0=6 AND B>9000 THEN 470 ELSE 480 

470 PRINT"! CAN'T ALLOW THAT!":GOTO 570 

480 K=RND(500)+500 

490 IF Ca=5 THEN A=A+K;60T0 510 

500 IF C0=6 THEN B=B+K 

510 PRINTK;" KM RETREAT MADE" 

520 D=D-50:60T0 570 
530 PR I NT "COMMAND N READ" 

540 D1=D1+10;G0T0 570 

550 PRINT"COMMAND 0 READ"; IF Dl<50 THEN PRINT"NOT ENOUGH IN RESERVE FOR TRANSFER" ; GOTO 570 
560 D=D+D1:D1=0;D2=10 

570 T=0:FOR X=1 TO 2: IF X=1 AND E<=0 THEN 1140 ELSE IF X=2 AND F<=0 THEN 1140 

580 IF X=1 AND E<80 THEN 1080 ELSE IF X=2 AND F<80 THEN 1080 

590 IF X=1 AND A>9000 THEN 08=1; GOTO 860 

600 IF 09000 THEN 0B=2;G0T0 860 

610 IF X=2 AND B>9000 THEN 0B=3:G0T0 860 

620 IF X=1 AND A<1000 THEN 0B=1:G0T0 970 

630 IF C<1000 AND COO THEN 0B=2:GaT0 970 

640 IF X=2 AND B<1000 THEN 0B=3:GQT0 970 

650 K=RND(20);IF K=5 THEN T=1;GDT0 860 

660 IF K=7 THEN T=1:G0T0 970 

670 K=RND(10):IF K=5 THEN 1080 

680 IF X=1 AND E2=0 THEN 1080 

690 IF X=2 AND F2=0 THEN 1080 

700 IF X=1 THEN K=RND(2):IF K=1 THEN 0B=1 ELSE 0B=3 
710 IF X=2 THEN K=RND(:2):IF K=1 THEN 0B=1 ELSE 0B=2 


T<ei-P'6-HT 
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730 IF OB-2 AND E=0 THEN 0B=1 

740 IF X=1 THEN PRINT"SHIP 2"; ELSE PRINT"SHIP 3"; 

750 PRINT” HAS FIRED A MISSILE" 

760 K=RND(2);IF K=1 AND X=1 THEN E2=E2-i;G0T0 1140 
770 IF K=1 AND X=2 THEN F2=F2-1:G0T0 1140 

780 IF X=1 AND 0B=1 THEN K=A ELSE IF X=1 AND 0B=3 THEN K=C 

790 IF X=2 AND 08=1 THEN K=B ELSE IF X=2 AND □B=2 THEN K=C 

BOO SOSUB 1350 ■ 

BIO IF 0B=1 THEN PRINT H; " UNIT HIT SUSTAINED" : D=D-H 

B20 IF 0B=2 THEN PR I NT "SENSORS RECORD HIT ON SHIP 2";E=E-H 

B30 IF 0B=3 THEN PRINT"SENSORS RECORD HIT ON SHIP 3":F=F-H 

840 IF X=1 THEN E2=E2-1 ELSE F2=F2-1 

B50 GOTO 1140 

B60 IF TOl THEN 920 

870 P=RND<2) 

880 IF X=1 AND P=1 THEN 08=1; IF A<1000 THEN 0B=2 

890 IF X=1 AND P=2 THEN 08=2; IF C<1000 THEN 08=1 

900 IF X=2 AND P=1 THEN 08=3: IF 8<1000 THEN 0B=2 

910 IF X=2 AND P=2 THEN 08=2; IFC< 1000 AND B<1000 THEN 970 ELSE IF C<1000 THEN 0B=3 

920 K=RND(500)+500 

930 IF 0B=1 THEN A=A-K;E=E-50;PRINT"SHIP 2 APPROACHES" 

940 IF 0B=2 THEN C=C-K: IF X=1 THEN E=E-50 ELSEF=F-50; IF X=1 THEN PRINT"SHIP 2 APPROACHES SHIP 3" 
ELSE PRINT"SHIP 3 APPROACHES SHIP 2" 

950 IF 08=3 THEN B=B-K; F=F-50; PRINT"SHIP 3 APPROACHES" 

960 GOTO 1140 

970 IF TOl THEN 1030 

980 P=RND(2) 

990 IF X=1 AND P=1 THEN 0B=1:IF A>9000 THEN 08=2 

1000 IF X=1 AND P=2 THEN 0B=2; IF 09000 AND A>9000 THEN 860 ELSE IF 09000 THEN 0B=1 

1010 IF X=2 AND P=1 THEN 0B=3; IF B>9000 THEN 0B=2 

1020 IF X=2 AND P=2 THEN 08=2: IF B>9000 AND 09000 THEN 970 ELSE IF 09000 THEN 0B=3 

1030 K=RND(500)+500 

1040 IF 0B=1 THEN A=A+K;E=E-50:PRINT"SHIP 2 RETREATS" 

1050 IF 0B=2 THEN C=C+K: IF X=1 THEN E=E-50 ELSE F=F-50; IF X=1 THEN PRINT"SHIP 2 RETREATS FROM SH 
IP 3" ELSE PRINT"SHIP 3 RETREATS FROM SHIP 2" 

1060 IF 0B=3 THEN B=B+K: F=F-50: PRINT"SHIP 3 RETREATS" 

1070 GOTO 1140 

1080 IF X=1 AND El<50 THEN 1120 

1090 IF X=2 AND Fl<50 THEN 1120 

1100 IF X=1 THEN E=E+E1:E1=0;E2=10: PRINT" SENSORS RECORD MASSIVE ENERGY TRANSFER ON SHIP 2"; GOTO 
1140 

1110 IF X=2 THEN F=F+F1 ; F1=0: F2=10; PRINT"SENSORS RECORD MASSIVE ENERGY TRANSFER ON SHIP 3"; GOTO 
1140 

1120 IF X=1 THEN E1=E1+10 
1130 IF X=2 THEN F1=F1+10 

1140 IF E<=0 AND F<=0 THEN 1190 ELSE IF E<=0 PRINT"SHIP 2 DESTROYED" ; A=0; C=0: GOTO 1160 
1150 IF F<=0 THEN PR I NT "SHIP 3 DESTROYED" : B=0; C=0 
1160 NEXT X:GaSUB 1340;F0R P=1 TO 750;NEXT P:GOTO 40 
1170 PR I NT "YOU HAVE RUN OUT OF ENERGY AND HAVE" 

1180 PR I NT "DESTROYED YOUR SHIP"; END 

1190 PR I NT "YOU DID IT! EARTH HAS BEEN SAVED FROM THE ALIENS!" 

1200 END 

1210 CLS:PRINT"LIST OF COMMANDS" 

1220 PRINT" " 

1230 PRINT" H - FIRE AT SHIP 2" 

1240 PRINT" I - FIRE AT SHIP 3" 

1250 PRINT" J - APPROACH SHIP 2" 

1260 PRINT" K - APPROACH SHIP 3" 

1270 PRINT" L - RETREAT FROM SHIP 2" 

1280 PRINT" M - RETREAT FROM SHIP 3" 

1290 PRINT" N - GAIN NEW ENERGY AND PREPARE" 

1300 PRINT" NEW MISSILES" 

1310 PRINT" 0 - TRANSFER ENERGY AND RE-LOAD" 

1320 PRINT; PR I NT "PRESS ANY KEY TO BEGIN" 

1330 A$=INKEY*: IF A$="" THEN 1330 ELSE RETURN 

1340 SOUND 6,0; SOUND 7, 7: SOUND 8, 16; SOUND 9, 16: SOUND 10, 16; SOUND 12, 56: SOUND 13,0: RETURN 
1350 L=K/1000;H=(:10-L)T10;H=H+(RND(:0)4:10) 

1360 RETURN 


.10 C0L0'JR7;CLS:PRIMT§171, "WORD SEARCH PUZZLE" 

15 ’ADAPTED TO COLOUR GENIE BY DON EDWARDS 

30 C0L0UR2 :PRINT§920, " ” 5 : INFUT"BO YOU NEED INSTRUCTIONS" J 1$ 

40 IF LEFT$(I«, 1)="N"0R LEFT$ ( Ils , 1 ) ^ ” n " THEN CLS: GOTO 190 ELSE CLS 
50 C0L0UR7: PRINT TABdO); "WORD SEARCH PUZZLE": PRINT 

SO COLOUR2; PRINT " THIS PROGRAM IS A WORD SEARCH PUZZLE GENERATOR!!" 

70 PRINT "THE PROGRAM TAKES A SET OF INPUT STRINGS, PURGES ALL" 5 
30 PRINT " NON-ALPHABETIC CHARACTERS OUT OF THEM AND INCORPORATES" 5 
90 PRINT " THEM INTO A WORD SEARCH PUZZLE" 

IOC PRINT 

.110 PRINT " IN THE COURSE OF MAKING THE PUZZLE, THE MACHINE MAY"} 

120 PRINT " FIND THAT IT CAN’T PUT A PATICULAR WORD ANYWHERE, AND"} 

130 PRINT " SO WILL ASKYOU IF IT SHOULD START THE WHOLE PUZZLE" 

140 PRINT "OVER, IF YOU DON’T WANT IT TO START OVER, TYPING 'NO* "} 

ISO PRINT "WILL THROW AWAY THAT PARTICULAR WORD. IF THIS PERSISTS," 

160 PRINT "TRY EITHER GIVING LESS WORDS OR BIGGER PUZZLE DIMENSIONS!" 

170 PRINTS920, "PRESS ANY KEY TO CONTINUE"} 
iSO IF IMKEY«="" THEN ISO ELSE CLS 
190 CLEAR 3000 

200 C0L0UR2: INPUT "DO YOU WANT THIS TO GO TO THE PRINTER" iPR« 

210 IF LEFT$<PR$, 1) ="i<l"OR LEFT* ( PRS, 1 ) = " n " THEN TW=40 : G0T0230 
220 INPUT"HOW MANY COLUMNS DOES YOUR PRINTER HAVE " } TW 
230 1NPUT"D0 YOU WANT A SOLUTION PRINTOUT" ;X* 

240 COLOUR2: PRINT; rNPUT'’WHAT IS TO BE THE WIDTH OF THE PUZZLE "}W: MD=W 
250 IFW*2<=TW THEN 270 

260 COLOURS: PRINT "THAT WILL NOT FIT IM";TW;" COLUMNS G0TQ240 
270 IFW<1 THEN240 

280 C0L0UR2: PRINT: INPUT "THE LENGTH" }L: IFL>W THEN MD=L 
290 IFL<1 THEN 230 

300 C0L0UR2: PRINT: INPUT "WHAT IS THE MAXIMUM NUMBER OF WORDS IN THE PUZZLE "jM 
310 IF M>=2THEN 330 

320 COLOURS; PRINT"S0RRY; THERE MUST BE AT LEAST 2 WORDS G0T0300 

330 DIM A*<L, W) , W*(M) 

331 FOR 1= 1 T0L:F0RJ=1T0 W: a* ( I , =" " : NEXT! : NEXTI 
340 DIMW (M, 3) , DXY !3, 2) , DD (23) 

350 COLOUR2: PRINT: PRINT"NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE 

c H 

360 PRINT TAB (4 )} " < " } TW } " CHARACTERS MAXIMUM! )" 

370 INPUT XY* 

330 CLS 

390 PRINT"OK ENTER A WORD AT EACH (aUESTION MARK. "}: COLOURS: PRINT"Words m 

ust be in lower case!!" 

400 COLOUR2:PRINT"TO REDO THE PREVIOUS WORD, TYPE A HYPEN (-)." 

410 PR I NT "WHEN YOU RUN OUT OF WORDS, TYPE A FULLSTQP ( . ) , " 

420 SC=320: FOR 1=1 TO M 

430 PRINT§2S0, "NEXT WORD " } CHR* ( 30 ) } : 1 NFUT T* 

440 IF T*<>"-"THEN 470 ELSE 1=1-1 

4S0 colours; SC=SC-16: PRINT§230, "REDO "} W* ( I );"...•' } CHR*(30)J 
460 INPUT T*: G0T0440 


470 IF T^=”.“ THEM M=I-l:6OT0 710 

480 colours: IFLEN (T$) =0 THEN PRINT§230, " INPUT ERROR; REDO . " ; CHR$ ( 30 ) ; 

490 IF LEN (T$) =OTHEN INPUTT*: GOTO 440 ELSE J=1 

500 TE*=MID*(T*, J , 1 ) : IFTE*>="a“ AND TE$<="z" THEN580 

510 IF TE*<"a" OR TE*>“ 2 ” THEN540 

520 T*=LEFT*(T*, J-1 ) +CHR* ( ASC ( MID* ( T*, J , 1 ) ) ) +RIGHT*(T*, LEN<T*) -J) 

530 GOT0580 

540 IF TE*=T* THEN T*="’'; GOTO 480 

550 IF J=LEN(T*) THEN T*=LEFT* ( T*, J - 1 ) : GOTO 610 

560 IF J=1 THEN T*=RI GHT* ( T*, LEM ( T*) - 1 ) : J= J - 1 : G0T0580 

570 T*=LEFT*(T*J-1) ;RIGHT*<T*,LEN<T*) -J) : J=J-1 

580 J=J + 1*. IFJ<=LEN(T*) THEN 500 

590 IF LEN(T*)>MD THEN 640 

600 FORIZ= ITO I-l :IFW*(IZ)=T* THEN 660 

610 C0L0UR2; next: print§sc, “-"iT*; "-'■;chr*(31) ; :sc=sc+io:fl=2 
620 if LEN(T*) +FL>10 THEN SC=SC+ 10 : FL=FL- 10 : G0T0620 
630 GOTO 680 

640 colours: PRINT t280, "STRING TO LONG; REDO: " ; CHR* < 30 ) ; : INPUT T* 

650 GOTO 440 

660 PRINTS280, "DUPLICATE ENTRY REDO: "; CHR*(30);: INPUT T* 

670 GOTO 440 
680 W*(I)=T* 

690 NEXTI 
700 REM 

710 C0L0UR2:CLS: PRINT "NOW LET ME PONDER THIS " 

720 FOR 1=1 TO M-i 
730 FOR 3=1+1 TO M 

740 IF LEN<W*(I)) <LEN<W*(J)) THEN H2*=W* ( I ) : W* ( I ) =W* ( J ) : W* < J ) =HZ* 

750 NEXT J, I 

760 FOR 1 = 1 TO 8: READ DXY ( 1 , 1 ) , DXY ( 1 , 2 ) *. NEXT 

770 FOR 1=1 TO 23: READ DD ( I ) : NEXT 

780 DATA O, 1 , 1 , 1 , 1 , O, 1 , -1 , O, -1 , -1 , -1 , -1 , 0, -1 , 1 

790 DATA 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 1,3, 5, 7 
800 FOR 1=1 TO M 
810 LN=LEN (W*( I ) ) 

820 NT=0 

830 SD=DD (RND <28) ) 

840 SX=RND(W): XI =SX+ ( LN- 1 ) *DXY ( SD , 1 ) : IFXK 1 OR X1>W THEN 830 
850 SY=RND (L) :X1=SY+ (LN-1 )*DXY <SD, 2) : IF XKl OR Xi>L THEN 830 
860 NT=NT+l:IF NT<>W*L*2 THEN910 

370 C0L0UR5: PRINT "COULDN’T FIT ’ " I : C0L0UR4: PRINT W* ( I );: COLOURS: PRINT IN THE 
PUZZLE" 

880 INPUT " DO YOU WANT ME TO START AGAIN"; A* 

890 IF LEFT*(A*, 1)="Y" THEN 1410 
900 W*(I)="" .’GOTO 990 
910 J=SY:K=3X 
920 F0RP=1T0LN 

930 IFLEN (A*< J,K) ) ANDA* ( J , K) OMID* ( W* < I ) , P , 1 ) THENS30 
940 J = J + DXY(SD,2) :K=K + DXY(SD, 1) .’NEXT P 
950 j=sy;k=sx 

960 F0RP=1 TO LN:A*( J,K)=MID*(W*<I) ,P, 1) 

970 J=J+DXY (SD, 2) ;K=K+DXY (SD, 1 ) : NEXT P 
980 W(l,l)=sx: W(I,2)=SY: W(I,3)=SD 
990 NEXT I 


1000 FOR 1=1 TOL 
1010 FOR J=i TO W 

1020 IF A«(I,J)="" THENA$(I, J)=CHR$(RND<26) 4-96) 

1030 NEXT J, I 

1040 FOR 1=1 TO M-l:FOR J=I+1 TO M 
1050 IF W*(I)<=W*(J) THEN 1080 
1060 Hz*=w$<i) :w$«i)=w«(j) :w*(j)=HZ* 

1070 FOR K= 1 TO 3 : HZ=W ( I , K) : W ( 1 , K ) =W ( J , K ) *. W ( J , K ) =HZ : NEXT K 
1080 NEXT JJ NEXT I 

1090 C0L0UR2: PRINT: INPUT"HOW MANY COPIES OF THIS PUZZLE DO YOU 
IlOO PRINT"FOR EACH COPY , PRESS <RETURN> TO BEGIN PRINTING..."! 
1110 FOR C = 1 TO n: GOSUB 1120: next c: gotoiaoo 
1120 PRINTPM*! : INPUT A«;PRINT:PR$=LEFT$(PR*, 1) 

1130 PM«="PRESS < RETURN > TO CONTINUE " 

1140 T= (TW-2*W) /2;CLS: PR= (PR$="Y" ) ;TS= (40-2*W) /2 
1150 IF PR THEN LPRINT" " 

1160 print: IF PR THEN LPRINT" " 

1170 CLS:PRINTXZ* : print TABU40-LEN(XY$) ) /2) !XY* 

1180 IF PR THENLPRINTXZS: LPRINT TAB ( ( TW-LEN ( XY$) ) /2 ) J XY« 

1190 PRINT: PRINT: IF PR THEN LPRINT” ": LPRINT" " 

1200 FORJ=1TOL: IFPRTHENLPRINTTAB (T) :PR1NTTAB(TS) 5 
1210 FOR K = 1 TO w: IF A«CJ,K)<>"," THEN1240 
1220 PRINT". ";:1F PR THEN LPRINT". "! 

1230 GOTO 1250 

1240 PRINT A*(J,K)!" "j; IF PR THEN LPRINT A*(J,K)!" "i 
1250 NEXT K: print: IF PR THEN LPRINT" " 

1260 NEXT J 

1270 PRINT: print: if PR THEN LPRINT" ": LPRINT" " 

1280 P0=0: PRINT"FIND THESE HIDDEN WORDS IN THE PUZZLE:" 

1290 IF PR THEN LPRINT"FIND THESE HIDDEN WORDS IN THE PUZZLE:" 
1'300 PRINT: IF PR THEM LPRINT" " 

1310 FOR J=1 TO M:IF LEN(W$(J))=0 THEM1370 
1320 IF P0S(0> +LEN(W«( J) ) >38 THEN PRINT 

1330 IF PR THEN IF PO+LEN ( < J ) ) >TW-2 THEN LPRINT" ":P0=0 
1340 PRINTW$(J),; IF PR THEN LPRINTW* ( J ) , 

1350 PO=PO+16 

1360 REM LPRINTCHR«( 12) REM IS THE PRINTER FORM FEED CHARACTER 
1370 NEXT j:print;print:print;print 

1380 IF PR THEN LPRINT: LPRINT: LPRINT: LPRINT: LPRINT" " 

1390 RETURN 

1400 IF LEFT$(X$, 1 )="Y" OR LEFT« ( X«, 1 ) = " y " THEN1420 
1405 print: INPUT"C0NTINUE” }29* 

1410 RUN 
1420 REM 

1430 FOR 1= 1 TO L:F0R J=1 TO W ; A« ( I , J )=".": NEXT j:next I 
1440 FOR I = 1 TO M 

1 450 LN=LEN ( W« < I ) ) : J=W (1,2): K=W (1,1) 

1460 FOR P=1 TO LM 

1470 A«(J,K)=MID*(W*(I) ,P, 1) 

1480 J=J+DXY(W< 1,3) ,2) : K=K+DXY ( W ( I , 3 ) , 1 ) : NEXT P 
1490 NEXT I 

1500 X2$=" Here is tlie answer key to the " 

1510 GOSUB 1120 
1520 PRINT: PRINT 


WANT" ! N 


1530 END 




10 XS="045064067000000080082121 195235004" 

20 FORJ=0TO1O:K=VAL(MIDS(XS, J#3+l,3) ) : POKE 16422 +J,K: NEXT 
30 CLEAR 1000: DIM Q(13):DIM X ( 13) : TL=0: AV=0 
40 COLOUR 5;CL3 
50 PRINTSloS, 

60 PRINTS20S, "« tt" 

70 FRINTe24S, "# GRAPHMAKER #" 

60 FRINTG238, “# «" 

90 FRINT@32S, " " 

100 COLOURl : PRINTe720, "ENTER GRAPH TITLE THEN <RETURN >": PRINT : INPU F TS 
110 CLS 

120 FOR M=1 TO 12 

130 PRINTa40, "ENTER QUANTITY FOR MONTH ";MJ" (0-900) PRINT : INPUT Q(M) 

140 FRINT@67, " " ; PRINTG 1 22 , " " : NEXT M 

150 CLS: INPUT"ENTER LARGEST ENTRY (10-900)" 5 LE 

160 IF LE<10 OR LE>900 THEN 150 

170 FOR M=1 TO 12 

180 IF Q(M) > LE THEN 210 

190 NEXT M 

200 GOTO 230 




:210 colours; PRINT! PRINTLE; - is not the largest ENTRY" 

:zrz0 FOR D = 1 TO 1000: NEXT D: COLOURl : GOTO150 
230 CLS:PRINT"CISPLAY as cot or bar graph?" 

^40 frint:print"hit <D> or <B>'' 

2Z50 K$=INKEY*;IF K*="D"OR K*= " B " THEN260 ELSE 250 
^60 IF KS="D" THEN F*="*" ELSE FS^"*/" 
h7p PRINT: PRINT "DISPLAY AVERAGE ?" 

23B print: FRINT"HIT <Y> OR <N>" 

29© AS=INKEY*;IF A*= " Y " ORAS= " N" THEN 300 ELSE290 
200 PRINT; PRINT "OUTPUT TO PRINTER 7" 

210 print: FRINT"HIT <Y> OR <N>" 

220 (3$=INKEY*; IF Q«= " Y " ORQ»- "N " THEN 330 ELSE 320 
230 IFQ*=" Y"THEN340ELSE370 

240 PRINT:PRINT"FULL page or HALF PAGE WIDTH.” 

250 print: print"hit <f> or <H>" 

260 Gl$= inkeys; IFQ1S="F"ORQ1S="H"THEN370ELSE360 

270 ’DRAW X,Y axis 

280 CLS 

393 LE=INT(LEJ 

430 IF LE/100 THEN 430 

410 IF LE=900 THEN 460 

420 GOSUB 1040: GOTO 460 

430 GOSUB 1040 

440 IF MIDS(LES,3, 1)="0" THEN 460 

450 LE=LE+10; GOTO430 - 

460 Sr=LE/20 

470 U=0;L=LE 

4S0 FOR C=1 TO 10 

490 C0L0UR2: PRINTdV.L 

S00 L=L- CSP*2) : V=V+80 

510 NEXT C 

323 PRINTeS01 , "0" 

530 A=4 

540 FOR C=0 TO 20 
550 C0L0UR4:FRINTaA, "r " 

560 A=A+40 

570 NEXT C 

580 A=O05 

593 FOR C=0 TO 34 

600 PRINTdA, “Z” 

610 A=A+i 
620 NEXT C 

630 C0L0UR2: PRINTdSSS, " J F M A M 1 J A S O N 
640 PRINT(1965," # ";T$j" » "5 

650 COLOUR i:PRINTe448, "HIT ANY KEY TO RETURN TO PROGRAM 
660 FRINTeSZS, "AFTER GRAPH HAS BEEN DISPLAYED" 

670 ’WORK OUT VALUES FOR GRAPH ^ 

680 FOR M=1 TO 12 
690 GOSUB 1110 
700 NEXT M 

710 IF AS="N"THEN 770 
720 TL=0 

730 FOR M=1 TO 12 
740 TL=TL+Q(M) 

750 NEXT M 

760 AV=INT (TL/12) 

770 FOR D=0 TO 300:NEXTD 
780 PRINTe44S, " 


790 PRINTQ528," 

800 ’PLOT GRAPH COORDINATES 
810 A=6 

820 FOR M=1 TO 12 

830 P= CS00-40-X-X (M) ) +A 

840 C0L0UR7;PRINT@P,FiE 

850 IF F*='V'THEN GOSUB 1070 

860 A=A+3 

870 NEXT M 

880 IF TL=0 THEN 930 
890 A==7 

900 Q (13) =AV:GOSUE1110 
910 AV=><(13) 

920 P= (800-40*AV) +A 
930 FOR C=7 TO 39 STEF 3 
940 COLOURoZPRINTSP, "y " 

950 P=P+3 
960 NEXT C 

970 TL=0: AV=0:COLOUR1 

980 IF Q$="Y” THEN GOSUB 1270 

990 K5=INKEY*:IF K*=""THEN990 

1000 CLS: FRINT"DISPLAY AGAIN OR CREATE NEW GRAPH ?" 

1010 print: PRINT"HIT <A> OR <N>" 

1020 K3:=INKEY*: IF K*<>"A”AND K9<> " N“ THEN1020 
1030 IF K«="A"THEN 230 ELSE 1150 
1040 LES=STR*(LE) 

1050 IF RIGHTS (LE*, 1) =”0"THEN RETURN 
1060 LE=LE+1 : GOTO1040 
1070 FOR B=0 TO 25 

1080 P=P+40:IF P>=845 THEN RETURN 
1090 PRINTSP,"^" 

1100 NEXT B: RETURN 
1110 Y=0 

1120 IF Q(M)<=Y THEN 1140 

1130 Y=Y+SP:G0T0 1120 

1140 X (M) =Y/SP: RETURN 

1150 cls:print“do you want to 

1160 print: PRINT" <1> CREATE NEW GRAPH" 

1170 PRINT:PRINT" <2> INSERT NEW VALUES IN OLD GRAPH" 

1180 print: PRINT"HIT <1> OR <2>" 

1190 KS=INKEYS:IF KS=“1"0R KS="2"THEN 1200 ELSE 1190 
1200 IF KS="1"THEN 30 

1210 CLS: INPUT"ENTER MONTH ( 1-12) . IF END ENTER <99>"5M 
1220 IF N<1 OR M>12 AND M099 THEN 1210 i 

1230 IF M=99 THEN 150 

1240 PRINT: PRINT "ENTER NEW VALUE FOR MONTH "JM" (0-900)" 

1250 print: INPUT V 

1260 Q (M) =INT (V) : GOTO1210 

1270 LPRINTCHRS(27) ; " 1 " ; : IFaiS= " F " THENLPRINTCHRS ( 27 ) J "W" J CHRS ( 1 ) 

1200 P=17408 

1290 FCRJ=0TO24 

1300 LFRINT 

1310 FORS=PTOP+S9 

1320 G=PEEK(S) 

1330 IFG=217THENG=157 
1340 IFG=21STHENG=1 
1350 IFG=219THENG=156 
1360 IFG=202THENG=17 


790 PRINTa528, " 

800 'PLOT GRAPH COORDINATES 
810 A=6 

820 FOR M=1 TO 12 
830 P=(800-40*X(M) ) +A 
840 C0L0UR7: PRINT@P,F* 

850 IF F*="J’"THEN GOSUB 1070 
860 A=A+3 
870 NEXT M 

880 IF TL=0 THEN 930 
890 A=7 

900 Q(13)=AV:GOSUB1110 
910 AV=X<13) 

920 F= (300-4O*AV) +A 
930 FOR C=7 TO 39 STEP 3 
940 colours: FRINTSP, " y" 

950 P=P+3 
960 NEXT C 

970 TL=0: AV=0: COLOUR! 

980 IF QS-'-Y" then GOSUB 1270 
990 KS=INKEYS:IF K*= " " THEN990 

1000 CLS SPRINT "DISPLAY AGAIN OR CREATE NEW GRAPH 7" 

1010 print: PRINT"HIT <A> OR <;N>" 

1020 KS=INKEY*;iF KS<>"A"AND K*<> "N"THEN1020 
1030 IF K*="A"THEN 230 ELSE 1150 
1040 LE*=STR*(LE) 

1050 IF RIGHTStLE*, 1) = '0’'THEN RETURN 
1060 LE=LE+1:GOTO1040 ; 

1070 FOR B=0 TO 25 

1030 P=P-»-4e:IF P> = 845 THEN RETURN 
1090 PRINTSP, "J-" 

1100 NEXT B: RETURN 
1110 Y=0 

1120 IF Q(M)<=Y THEN 1140 

1130 Y=Y+SP:G0T0 1120 

1140 X (M) =Y/3P: RETURN 

1150 CLS:PRINT"D0 you want to :" 

1160 FRINTIPRINT" <i> CREATE NEW GRAPH" 

1170 PRINT: PRINT" <2> INSERT NEW VALUES IN OLD GRAPH" 

1180 PRINT:PRINT"HIT <i> OR <2>" 

1190 K**INKEY*:IF K*=“1"0R K*="2"THEN 1200 ELSE 1190 
1200 IF K*="1*THEN 30 

1210 CLS: INPUT "ENTER MONTH { 1 - 125 . IF END ENTER <99>"!M 
1220 IF M<i OR M>12 AND M099 THEN 1210 
1230 IF M=99 THEN 150 

1240 PRINT: PRINT"ENTER NEW VALUE FOR MONTH "5H” <0-9005" 

1250 PRINT: INPUT V 

1260 a(M5=INTtV) :GOTO1210 

1270 LPRINTCHR»(27 5 { " 1 " J S IFQ1*= " F " THENLPRINTCHR* ( 27 5 ; "W" S CHR* ! 1 5 

1230 P=1740S 

1290 FCRJ=0TO24 

1300 LFRINT 

1310 F0RS=PT0P+39 

1320 G=PEEK(S) 

1330 IFG=217THENG=157 
1340 IFG=218THENG=1 
1350 IFG=219THENG=156 
1360 IFC=202THENG=17 


1370 LPRINTCHR*{G5 S 
1300 NEXTS 
1390 P=P+40 
1400 NEXTJ 

1410 LPRINT:LPRINT:LPRINTCHR*(275 5 "2"iCHRS(275 S "W’’iCHRS(05 
1420 RETURN 


1 CLS 


MASTERMIND from Keith McGiJl 

Guess the 4-digit number. 8 tries allowed, 
(from Tim Hartnell's Giant Book of Computer 
Games.) 


BY fl.K. McGill FROM THE ORIGINAL BY TIM HARTNELL (GIANT BOOK OF COMPUTER GAMES 


place" 


3 

7 ' 

9 ' 

10 ' 

11 ' 

13 "M A S T E R MIND" 

14 ' 

15 ' 

16 ' 

17 ’ 

18 ' 

20 PR I NTgcl OPPRESS A KEY TO BEGIN" 

22 PRINT§800,"THIS PROGRAM HAS BEEN ADAPTED FOR CG 

25 K$=IKKEY$;IF Kl="" THEN 25 
30 CLS:N=1 
50 N=N+1 
70 RANDOM 
80 CLS 
100 PRINT 

110 PRINT "WHEN YOU ARE TOLD TO DO SO," 

120 PR1NT"B1TER A FOUR-DIGIT NUMBER" 

130 PRINT'THEN PRESS RETURN" 

140 PRINT 

150 PRINT'DIGITS CAN BE REPEATED" 

160 PRINT 

170 PRINT"Y0U HAVE EIGHT ATTEMPTS TO BREAK" 

180 PR1NT"THE DIFFICULT CODE* 

182 PRINT ;PRINT:PRlNT"Black - the right digit in the right 

184 PRINT'.PRINT"Uh i te - the right digit in the wrong place 

190 FOR Z=1 TO 3000; NEXT 2 

200 CLS 

210 DIM B(4) 

220 DIM D(4) 

230 H==0 

240 FOR A=1 TO 4 
250 B(A)=RND(9) 

260 NEXT A 
270 FOR C=1 TO 3 
230 PRINT 

290 FRINT"BnER GUESS NUMBER’ ;C; 

300 INPUT X 

310 IF X>9999 THEN 290 
320 IF XdOOO THEN 290 
330 P=INT(X/1000) 

340 (3=INT((X-1000tP)/100) 

350 R=INT((X-1000tP-!OO.tQ)/10) 

360 S=INT(X-1000tP-100tQ-10tR) 

370 D(1)=P 

380 D(2)=Q 

390 D(3)=R 

400 D(4)==S 

410 FOR EH TO 4 

420 IF D(E)<>B(E) THEN 470 

430 PRINT" Black"; 

440 B(E)=B(E)+10 
450 DiE)=D(E)+20 
460 H=H+1 
470 NEXT E 

480.1F.H=4 THEN 630 - 


490 FOR FH TO 4 
500 D=D(F) 

510 FOR GH TO 4 
520 IF DOBIG) THEN 560 
530 PRINT" 'ihite"; 

540 B(G)=e(G!+10 

550 GOTO 570 

560 NEXT G 

570 NEXT F 

580 FOR GH TO 4 

590 IF B(G)<10 THEN 610 

600 B(G)=B(G)-10 

610 NEXT G 

620 H=0 

630 PRINT 

640 NEXT C 

650 PRINI;PRINT"You didn't gel it.,..' 

660 PRINT’The answer is ■;B(1);B(2);B(3);B(4) 

670 END 

680 PRINT;PRINT;PRINT"lilel 1 done, Mastermind! ' 

690 PRINT 

700 PRINT:FRINr''You got the answer in just";C;" attempts 


